Form1
I Love WinApps!
Form1
FileMenuNull
&File
FileMenuAbout
&About
FileMenuFiller1
FileMenuExit
E&xit
Form_Click
Form_LinkClose
@	Form_Load
	Form_Cick
FontMax
FontNo
Screen
	FontCount
FontName
Fonts*
FontSize
Form_Resize
Font_Click
AutoRedraw
TRUEX
CurrentX
ScaleWidth
CurrentYg
ScaleHeight
FileMenuAbout_Click
TITLE
FileMenuExit_Click
	FirstTime
FirstTimeThrough
FALSE
ResizeOnly
Index
ProposedFontUC
ProposedFontName
 This has variables germane to multiple procedures in thee
 form. Otherwise, Visual Basic would have each form having
 its own variables.i
Form_Click
 This is invoked every time a mouse click is in the window.
 Clear the screen.
 Don't switch fonts if we're only redrawing.
 Is not the first time through?l
 Get number of fonts currently defined for the screen.
 (The number of screen fonts can change on the fly!)
 This begins a loop that obtains candidate fonts, andd
 throws out the ones that aren't text!
 Come up with a random font number.x
 Get the font name.d
 Convert the font name to upper case for matching ease.
 I'm not going to let this loop exit on three cases:
   DINGBAT fonts, SYMBOL fonts, or the DIGITAL (Clock) font.
DINGBAT"
SYMBOL
DIGITAL"
 Set the font name to the proposed font name.L
 Or, is this the first time through?
 First time through - use the first font (SYSTEM, usually)..
 Set the font size to 12 points.
 Determine half the text width..
 Determine half the text height.
 Set the X, Y screen position to center the text. 
 Print the text "I Love WinApps!"c
 Indicate that the resize is finished.
 Indicate that this isn't the first time through. 
Form_Load
 This gets executed when the module loads:
 Seed the random number generator.
 Indicate that the form is to automatically redraw.
 Indicate that this is the first time through.
 Simulate the initial click to bring up the text.w
Form_Resize
 This gets entered if the user's been playing with thatt
 big fat border and resizing this puppy!
 Clear the screen.
 Indicate that only a resize operation is to take place.
 Simulate a form click and let that finish the job!l
FileMenuAbout_Click
 This runs when the user requests "File, About":
 Build a message.h
 Program
by Charles L. Perrin
 Display the message.s
FileMenuExit_Click
 This executes when the user does the Exit request:
 and that's all, folks!